home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh27c.d64 / circle demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  93 lines

  1. 10 ;*********************************
  2. 11 ;*                               *
  3. 12 ;* GIGA-ASS GRAFIK-ROUTINEN DEMO *
  4. 13 ;* ----------------------------- *
  5. 14 ;*                               *
  6. 15 ;* ACHTUNG: VOR ASSEMBLIEREN     *
  7. 16 ;* MUESSEN ZWEI VORAUSSETZUNGEN  *
  8. 17 ;* ERFUELLT SEIN:                *
  9. 18 ;*                               *
  10. 19 ;* 1. DER OBJEKTCODE DER GRAFIK- *
  11. 20 ;* ROUTINEN MUSS IN DEN SPEICHER *
  12. 21 ;* GELADEN WORDEN SEIN.          *
  13. 22 ;*                               *
  14. 23 ;* 2. DAS MAKRO MERGE-FILE MUSS  *
  15. 24 ;* MIT DEM "M" BEFEHL AN DIESEN  *
  16. 25 ;* QUELLTEXT ANGEHAENGT WORDEN   *
  17. 26 ;* SEIN.                         *
  18. 27 ;*                               *
  19. 28 ;*********************************
  20. 100 +$7000
  21. 110 USRDEMO
  22. 120 DEMO DESIGNCLOSE3
  23. 130  CLEAR
  24. 140  COLORCLOSE$BF
  25. 150  TEXTCLOSET1,6,9,1,3,0,0
  26. 160  PAGECLOSE3
  27. 170  BORDERCLOSE$F
  28. 180  FRAMECLOSE35,35,290,90
  29. 190  FRAMECLOSE40,40,285,85
  30. 200  FILLCLOSE37,64
  31. 210  FILLCLOSE287,64
  32. 220  TEXTCLOSET2,13,6,0,1,1,0
  33. 230  TEXTCLOSET3,17,6,0,0,1,0
  34. 240  TEXTCLOSET4,19,7,0,0,1,0
  35. 250  SPACEWAIT
  36. 260  BORDERCLOSE$C
  37. 270  CLEAR
  38. 280  COLORCLOSE$C
  39. 290 ; 1. AUFRUF
  40. 300  MID$#160
  41. 310  (null)XC
  42. 320  MID$#0
  43. 330  (null)XC+1
  44. 340  MID$#100
  45. 350  (null)YC
  46. 360  (null)SUBR
  47. 370 ; 2. AUFRUF
  48. 380  MID$#228
  49. 390  (null)YC
  50. 400  (null)SUBR
  51. 410 ; 3. AUFRUF
  52. 420  MID$#54
  53. 430  (null)XC
  54. 440  MID$#1
  55. 450  (null)XC+1
  56. 460  MID$#10
  57. 470  (null)YC
  58. 480  (null)SUBR
  59. 490 EXIT OFF
  60. 500  MID$#0
  61. 510  (null)198
  62. 520  (null)
  63. 530 T1 NOT"CIRCLE DEMO"
  64. 540 T2 NOT"[199]IGA-[193]SS [199]RAFIK-[210]OUTINEN [196]EMO"
  65. 550 T3 NOT"[218]UM [193]BBRUCH <[211][208][193][195][197]> DRUECKEN!"
  66. 560 T4 NOT"[202]ETZT WEITER MIT <[211][208][193][195][197]>..."
  67. 570 SUBR MID$#2
  68. 580  (null)RAD
  69. 590 LOOP1 CIRCLEICLOSEXC,YC,RAD
  70. 600  EXITKEY
  71. 610  RIGHT$RAD
  72. 620  (null)LOOP1
  73. 630  MID$#2
  74. 640  (null)RAD
  75. 650 LOOP2 CCIRCLEICLOSEXC,YC,RAD
  76. 660  EXITKEY
  77. 670  RIGHT$RAD
  78. 680  (null)LOOP2
  79. 690  (null)
  80. 700 XC THEN2
  81. 710 YC THEN1
  82. 720 RAD THEN1
  83. 730 TAB(EXITADR=EXIT
  84. 740 GETEXITKEY
  85. 750  MID$203
  86. 760  STR$#$3C
  87. 770  (null)CONT
  88. 780  (null)
  89. 790  (null)
  90. 800  (null)EXITADR
  91. 810 CONT
  92. 820 NEW
  93.